www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Gu_quan.asp

    <!--#include file="ku_top.asp"-->
<%
id=request("action")
function title()
title="拼客圈子"
end function
%>
<% dim frs,fsql,id,k,thispage,allpages,pagesize,allrecord
k=0
if request("page")="" then 
   thispage=1
else 
   thispage=request("page")
end if
set frs=server.CreateObject("adodb.recordset")
if request("action")="" then
fsql="select * from quan order by addtime desc"
end if

if request("action")="1" then
fsql="select * from quan order by qnrs desc"
end if

if request("action")="2" then
fsql="select * from quan order by qnht desc"
end if

frs.open fsql,conn,1,1
if frs.eof then
Response.Write "<script language='javascript'>alert('对不起,暂无相关的拼客圈子!');history.back();</script>" 
response.End
else
	  '分页开始
       frs.pagesize=7
       pagesize=frs.pagesize
       allrecord=frs.recordcount
       allpages=frs.pagecount
       if thispage<1 then
       thispage=1   
       end if
       on error resume next
       frs.move (thispage-1)*pagesize

     '分页结束
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">


			<div align="center">


			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="36" background="Ku_img/News/news_001.JPG"><table border="0" width="740" id="table2" cellpadding="0" cellspacing="0">
							<tr>
								<td width="96">
								<p align="right"><b>拼客圈子</b></td>
								<td width="281">　</td>
								<td width="115"><a href="Gu_Quan.asp">按照时间排列</a></td>
								<td width="110"><a href="Gu_Quan.asp?action=1">按照人数排列</a></td>
								<td width="140"><a href="Gu_Quan.asp?action=2">按照话题排列</a></td>
							</tr>
						</table></td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<!---->
<div align="center">
	<table border="0" width="740" height="392" cellpadding="0" cellspacing="0">
		<tr>
			<td height="392" width="5"></td>
			<td height="392" width="740" valign="top">
			<div align="center">
				<table border="0" width="100%" id="table1"  cellpadding="0" cellspacing="0" height="425">

					<tr>
						<td background="Ku_Img/Art/art_002.jpg" valign="top">
						<div align=center>
						<table width="99%" class="table"  style="border-collapse: collapse" bgcolor="#ffffff" borderColor="#F0F0F0" Border="1">
		  <tr>
		  <% 
		  do while not frs.eof
		  %>
	      <td width="18%" class="smallclass"><div align="center">
		  <% if frs("logo")<>"" then%>
		  <a href="My_quan.asp?id=<%=frs("id")%>" target=_blank>
<img src="<%=frs("logo")%>" width="120" height="100" border="0"> </a>
		  <%else%>
		  <a href="My_quan.asp?id=<%=frs("id")%>" target=_blank>
<img src="pkxx-img/nopic-quan.gif" width="120" height="100" border="0"> </a>
		  <%end if%>
		  </div></td>
	      <td width="81%" class="smallclass">
		  <table width="100%">
		  <tr><td><b><a href="My_quan.asp?id=<%=frs("id")%>" target=_blank><font color="#FF0000">[<%=frs("lb")%>]</font>&nbsp;<%=Server.HTMLEncode(frs("name"))%></a></b></td>
<td align="right"><a href="join.asp?id=<%=frs("id")%>"><img border="0" src="pkxx-img/quan_icon11.gif"></a></td>
		  </tr>
		  <Tr><td style="word-break:break-all"><%=Server.HTMLEncode(left(frs("shuoming"),150))%></td></Tr>
		  <Tr><td align="left">
创建者:<a href="userinfo.asp?user=<%=frs("cjr")%>" target=_blank><%=frs("cjr")%></a>
&nbsp;&nbsp;创建时间:<%=DateTimeFormat(frs("addtime"),3)%>
&nbsp;&nbsp;圈内成员:<font color="#ff0000"><%=frs("qnrs")%></font>人
&nbsp;&nbsp;圈内话题:<font color="#ff0000"><%=frs("qnht")%></font>个
</td></Tr>
<Tr><td align="right">
<a href="My_quan.asp?id=<%=frs("id")%>" target=_blank><img border="0" src="pkxx-img/jrtl.gif"></a>
</td></Tr>
		  </table>
		  </td>
		  </tr><tr>
		  <% k=k+1
		     frs.movenext
			 if k>=pagesize then exit do
		     loop
			 end if%>
     <tr class="tablemenu"><td height="25" colspan="7" align="center">共<font color=red><%=allrecord%></font>条记录&nbsp;&nbsp;每页<font color=red><%=pagesize%></font>条&nbsp;&nbsp;共<font color=red><%=allpages%></font>页&nbsp;&nbsp;
       <%
      if allpages<2 then
       response.write "首页&nbsp;&nbsp;上一页"
      else 
      %><a href=?action=<%=id%>&page=1>首页</a>&nbsp;&nbsp;<a href=?action=<%=id%>&page=<%=(thispage-1)%>>上一页</a>
     <%
	 end if 
     if allpages-thispage<1 then
     response.write "&nbsp;&nbsp;下一页&nbsp;&nbsp;尾页"
    else
	%>
     &nbsp;&nbsp;<a href=?action=<%=id%>&page=<%=(thispage+1)%>>下一页</a>&nbsp;&nbsp;<a href=?action=<%=id%>&page=<%=allpages%>>尾页</a></td></tr>
<%
frs.close
set frs=nothing
end if
 %>
	  </table>
</div>
						</td>
					</tr>

				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<!---->					
					</td>
				</tr>
								<tr>
									<td height="16" background="Ku_img/News/news_002.JPG" align=center>  &nbsp;<%=a.PageInfo%></td>
								</tr>				
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
				</tr>
			</table>


			</div>


			</td>
			<td height="454" width="8">　</td>
			<td height="454" width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
			<!--#include file="Ku_type/tie_hot.asp"-->
<img border="0" src="pkxx-img/ad002.JPG" width="232">
			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->